home *** CD-ROM | disk | FTP | other *** search
/ .net (Turkey) 1998 March / .net Internet Dergisi - CD 5.iso / mac / netCD41 / web / XTRAS / FORMMOVIE.DIR / 00001_Script_1 next >
Text File  |  1997-09-18  |  8KB  |  170 lines
  1. on printForm
  2.   global gSurname, gForeNames, gTitle, gDoB, gAddress1, gAddress2
  3.   global gAddress3, gAddress4, gPostCode, gHomeNum, gDayNum
  4.   global gBSoft, gMoney97, gMoney98
  5.   set doc = new(xtra "PrintOMatic_Lite")
  6.   if not objectP(doc) then exit
  7.   setDocumentName doc, "Barclay PC Banking"
  8.   setMargins doc, rect(72,90,72,90)
  9.   setTextSize doc, 16
  10.   setTextStyle doc, "bold"
  11.   append doc, "BARCLAYS PC BANKING PERSONAL APPLICATION FORM"
  12.   
  13.   setTextSize doc, 9
  14.   setTextStyle doc, "italic"
  15.   append doc, " " & RETURN & RETURN
  16.   append doc, "This application form is for applicants wishing to access only personal accounts using the Barclays PC Banking service. Please read the notes prior to completing and returning your application." & RETURN
  17.   
  18.   setTextSize doc, 12
  19.   setTextStyle doc, "bold"
  20.   append doc, RETURN & "PERSONAL DETAILS" & RETURN & RETURN
  21.   
  22.   setTextStyle doc, "normal"
  23.   append doc, "Surname:" && gSurname & RETURN
  24.   append doc, "Forenames:" && gForeNames & RETURN
  25.   append doc, "Date of Birth:" && gDoB & RETURN
  26.   append doc, "Address:" && gAddress1 & RETURN
  27.   append doc, "               " && gAddress2 & RETURN
  28.   append doc, "               " && gAddress3 & RETURN
  29.   append doc, "               " && gAddress4 & RETURN
  30.   append doc, "Postcode:" && gPostCode & RETURN
  31.   append doc, "Home Phone No:" && gHomeNum & RETURN
  32.   append doc, "DaytimePhone No:" && gDayNum & RETURN
  33.   
  34.   setTextSize doc, 12
  35.   setTextStyle doc, "bold"
  36.   append doc, RETURN & "SOFTWARE REQUIREMENTS" & RETURN & RETURN
  37.   
  38.   setTextStyle doc, "normal"
  39.   append doc, "Barclays PC Banking software: [ "
  40.   if gBSoft then append doc, "x ]" & RETURN
  41.   else  append doc, "  ]" & RETURN
  42.   append doc, "Microsoft Money 97: [ "
  43.   if gMoney97 then append doc, "x ]" & RETURN
  44.   else  append doc, "  ]" & RETURN
  45.   append doc, "Microsoft Money 98: [ "
  46.   if gMoney98 then append doc, "x ]" & RETURN
  47.   else  append doc, "  ]" & RETURN
  48.   
  49.   setTextSize doc, 12
  50.   setTextStyle doc, "bold"
  51.   append doc, RETURN & "ACCOUNT INFORMATION" & RETURN & RETURN
  52.   
  53.   setTextStyle doc, "normal"
  54.   setTextSize doc, 10
  55.   append doc, "CHARGING ACCOUNT" & RETURN
  56.   setTextSize doc, 9
  57.   append doc, "Please indicate below the account from which you would like the charges for Barclays PC Banking to be debited." & RETURN & RETURN
  58.   
  59.   append doc, "SORT CODE                    ACCOUNT NUMBER                     ACCOUNT NAME                ACCOUNT TYPE" & RETURN
  60.   setTextSize doc, 9
  61.   setTextStyle doc, "italic"
  62.   append doc "                               |                                                    |                                                  |           CURRENT           |  * " & RETURN & RETURN
  63.   setTextStyle doc, "normal"
  64.   
  65.   setTextSize doc, 10
  66.   append doc, "OTHER ACCOUNTS" & RETURN
  67.   setTextSize doc, 9
  68.   append doc, "Please indicate below other accounts to which you require direct access and on which you will be able to raise entries on your PC." & RETURN & RETURN
  69.   
  70.   append doc, "SORT CODE                    ACCOUNT NUMBER                     ACCOUNT NAME                ACCOUNT TYPE" & RETURN
  71.   setTextStyle doc, "italic"
  72.   repeat with n = 1 to 9
  73.     append doc "                               |                                                    |                                                  |                                       |  * " & RETURN
  74.   end repeat
  75.   append doc, RETURN & "* For any joint account please tick to confirm that only one signature is required on cheques" & RETURN & RETURN & RETURN
  76.   setTextStyle doc, "normal"
  77.   setTextSize doc, 10
  78.   
  79.   append doc, "Please tick here if you would like a Barclays Instant savings Account to be opened   [       ]" & RETURN
  80.   
  81.   --  if doJobSetup(doc) then print doc
  82.   --  set doc = 0
  83.   --  
  84.   --  -- page two
  85.   --  
  86.   --  set doc = new(xtra "PrintOMatic_Lite")
  87.   --  if not objectP(doc) then exit
  88.   --  setDocumentName doc, "Barclay PC Banking"
  89.   --  setMargins doc, rect(72,96,72,96)
  90.   setTextSize doc, 16
  91.   setTextStyle doc, "bold"
  92.   append doc, "BARCLAYS PC BANKING PERSONAL APPLICATION FORM"
  93.   
  94.   setTextSize doc, 12
  95.   setTextStyle doc, "bold"
  96.   append doc, " " & RETURN
  97.   append doc, RETURN & "AGREEMENT & AUTHORISATION" & RETURN & RETURN
  98.   
  99.   setTextSize doc, 8
  100.   setTextStyle doc, "italic"
  101.   append doc, "In signing below, you are: 1. Applying to us, Barclays Bank PLC, for banking services including Barclays PC Banking. 2. Confirming that any details you have supplied are true and complete. 3. Authorising us to make credit references and other enquiries whenever you request any credit facilities, or if we wish to consider increasing your agreed limit or offering you other leading products. 4. Agreeing to accept the Personal Customer Terms and Conditions (March 1997) which contain your obligations to us and our obligations to you. These apply to all your present and future personal accounts with us. 5. You agree that if we or you terminate the PC Banking Service, you will return to us any software or equipment provided by us in connection with the service. If we need to revise the PC Banking service or software you will return, at our request, the software we have provided." & RETURN
  102.   
  103.   setTextStyle doc, "normal"
  104.   setTextSize doc, 12
  105.   append doc, RETURN & "Signature 1" & RETURN & RETURN
  106.   append doc, "Date" & RETURN & RETURN
  107.   append doc, "Signature 2" & RETURN & RETURN
  108.   append doc, "Date" & RETURN & RETURN
  109.   
  110.   setTextSize doc, 12
  111.   setTextStyle doc, "bold, italic"
  112.   append doc, RETURN & "FOR OFFICE USE" & RETURN & RETURN
  113.   
  114.   setTextSize doc, 10
  115.   setTextStyle doc, "normal"
  116.   append doc, "[   ] C    [   ] L    [   ] N    [   ] AD    [   ] JT    [   ] OS    [   ] CH" & RETURN & RETURN
  117.   append doc, "URN                                             CID _ _ _ _ _ _ _ _ _ _" & RETURN
  118.   append doc, "DAT" & RETURN
  119.   append doc, "VER                                               DI _ _ _ _ _ _" & RETURN & RETURN
  120.   
  121.   setTextSize doc, 9
  122.   setTextStyle doc, "italic"
  123.   append doc, "Branch Stamp: Please tick :  [   ] ACC    [   ] DCL" & RETURN & RETURN
  124.   append doc, "Contact name:" & RETURN & RETURN
  125.   append doc, "Ext:" & RETURN & RETURN
  126.   
  127.   setTextStyle doc, "italic, bold"
  128.   append doc,  RETURN & "Regulated by IMRO and the Personal Investment Authority. Barclays Bank PLC represents only the Barclays marketing Group for life assurance, pensions and unit trust business. Registered in England. Reg No: 1026167. Reg Office: 54 Lombard Street, London, EC3P 3AH." & RETURN
  129.   
  130.   setTextSize doc, 12
  131.   setTextStyle doc, "bold"
  132.   append doc, RETURN & RETURN & "ACCOMPANYING NOTES" & RETURN & RETURN
  133.   
  134.   setTextSize doc, 8
  135.   setTextStyle doc, "normal"
  136.   append doc, member "notes text"
  137.   
  138.   setTextSize doc, 12
  139.   setTextStyle doc, "bold"
  140.   append doc, RETURN & RETURN & "TERMS AND CONDITIONS" & RETURN & RETURN
  141.   
  142.   setTextSize doc, 8
  143.   setTextStyle doc, "normal"
  144.   append doc, member "terms text"
  145.   
  146.   if doJobSetup(doc) then print doc
  147.   set doc = 0
  148. end
  149.  
  150. on setTempGlobals
  151.   global gSurname, gForeNames, gDoB, gAddress1, gAddress2
  152.   global gAddress3, gAddress4, gPostCode, gHomeNum, gDayNum
  153.   global gBSoft, gMoney97, gMoney98
  154.   set gSurname to "Smith"
  155.   set gForeNames to "Bill Heidi"
  156.   set gDob to "12/34/64"
  157.   set gAddress1 to "The House"
  158.   set gAddress2 to "The Street"
  159.   set gAddress3 to "The City"
  160.   set gAddress4 to ""
  161.   set gPostCode to "LF6 8SD"
  162.   set gHomeNum to "01234 567890"
  163.   set gDayNum to "01234 098765"
  164.   set gBSoft to TRUE
  165.   set gMoney97 to FALSE
  166.   set gMoney98 to TRUE
  167. end
  168.  
  169.  
  170.